home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 97 / 097.d81 / bytes 97 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  89 lines
  1. 8 poke52,56:poke56,56:clr
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 12 poke53281,0:poke53280,0:print"[147]":gosub60000
  4. 15 sys57812"catmeis/cm",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  5. 20 dd=dv:fori=8to16:open2,i,2:close2
  6. 22 ifi=dvthen26
  7. 24 ifst=0thendd=i:i=16
  8. 26 next
  9. 100 cat=49152:cm=51968
  10. 110 fori=1to4:readm$(i):next
  11. 112 data "    [214]iew a [198]ont     "
  12. 113 data "   [195]onvert a [198]ont   "
  13. 114 data "  [195]onfigure [196]rives  "
  14. 115 data " [210]eturn to [204][207][193][196][211][212][193][210] "
  15. 116 print"[147]"
  16. 118 sysca+15,5,35,2,18,105,8
  17. 119 sysca+15,8,32,4,16,32,14
  18. 120 printtab(9)"[159][207] [195] [208]   [198] [207] [206] [212] [201] [218] [197] [210]"
  19. 130 poke214,7:print"[154]":fori=1to4:printtab(10)m$(i):print:next
  20. 150 m=1
  21. 151 poke214,20:print:print"      [211]ource ="dvtab(20)"[196]estination ="dd
  22. 152 poke214,5+m*2:print:printtab(10)""m$(m)"[145]"
  23. 154 geta$:ifa$<>"[145]"anda$<>""anda$<>chr$(13)then154
  24. 156 ifa$=chr$(13)then180
  25. 158 printtab(10)"[154]"m$(m)
  26. 160 ifa$="[145]"thenm=m-1:ifm<1thenm=4
  27. 162 ifa$=""thenm=m+1:ifm>4thenm=1
  28. 164 goto152
  29. 180 onmgosub200,300,400,500
  30. 182 goto151
  31. 200 sysca+18,80
  32. 202 sysca,"$:*=p",dv,53248,18,3,16,15,1
  33. 203 iff$=""thensysca+21,80:return
  34. 205 sys57812f$,dv,0:poke780,0:poke781,0:poke782,56:sys65493
  35. 208 print"[147]"
  36. 210 sysca+15,2,39,5,15,58,4
  37. 212 sysca+15,4,37,7,13,32,1
  38. 220 poke53272,31
  39. 230 poke214,7:print:printtab(5)"[158]@abcdefghijklmnopqrstuvwxyz[\]^_"
  40. 232 printtab(5)" !"chr$(34)"#$%&'()*+,-./0123456789:;<=>?"
  41. 234 printtab(5)"[192][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]"
  42. 240 poke214,18:print:print"    [154][208]ress a key[154] to return to the [205]enu"
  43. 250 geta$:ifa$=""then250
  44. 255 print"[147]":poke53272,22
  45. 260 sysca+21,80:return
  46. 300 sysca+18,80
  47. 302 sysca,"$:*=p",dv,53248,18,3,16,15,1
  48. 303 iff$=""thensysca+21,80:return
  49. 305 sys57812f$,dv,0:poke780,0:poke781,0:poke782,56:sys65493
  50. 310 syscm,14336,18496,728
  51. 320 fi$=left$(f$+"                ",12)+"font"
  52. 330 sys57812fi$,dd:poke193,64:poke194,72:poke174,31:poke175,75:sys62954
  53. 340 sysca+21,80:return
  54. 400 sysca+18,80
  55. 410 sysca+15,9,31,13,21,102,3
  56. 412 sysca+15,11,29,15,19,32,3
  57. 420 poke214,15:print:printtab(13)"[154][211]ource      ="dv
  58. 430 printtab(13)"[154][196]estination ="dd
  59. 435 poke214,22:print:print" [211][154] - [195]ycle [211]ource [196][154] - [195]ycle [196]estination
  60. 437 [153]"         cont(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)cont when done"
  61. 440 [161]a$:[139]a$[179][177][199](13)[175]a$[179][177]"s"[175]a$[179][177]"d"[167]440
  62. 450 [139]a$[178][199](13)[167][158]ca[170]21,80:[142]
  63. 460 [139]a$[178]"d"[167]470
  64. 462 dv[178]dv[170]1:[139]dv[177]16[167]dv[178]8
  65. 464 [159]2,dv,2:[160]2:[139]st[178][171]128[167]462
  66. 466 [137]490
  67. 470 dd[178]dd[170]1:[139]dd[177]16[167]dd[178]8
  68. 480 [159]2,dd,2:[160]2:[139]st[178][171]128[167]470
  69. 490 [151]214,15:[153]:[153][163]26)"   cmdcmdcmd"dv
  70. 492 [153][163]26)"   cmdcmdcmd"dd
  71. 494 [137]440
  72. 500 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  73. 510 [139]er[179][177]63[167][151]56,160:[156]:[153]"load":[128]
  74. 520 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
  75. 530 [153]"run"
  76. 540 [151]631,13:[151]632,13:[151]198,2:[128]
  77. 10000 [159]15,8,15,"s0:bytes 97":[160]15:[148]"bytes 97",8:[128]
  78. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  79. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
  80. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  81. 60030 z$(0)[178]"(NULL) len (NULL)   asc (NULL) (NULL) (NULL) right$ (NULL) val (NULL)":z$(1)[178]"by ascender (NULL)ucker
  82. 60040 z$(2)="[214]1.0 ([195]) 1992 by [211]oftdisk, [201]nc."+chr$(13)
  83. 60050 z$(3)="[212]his program is the copyrighted work
  84. 60060 z$(4)[178]"of (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$.  right$t is not"
  85. 60070 z$(5)[178]"shareware or in the public domain."
  86. 60080 z$(6)[178]"(NULL)eport illegal distribution of":z$(7)[178]"this program by calling"
  87. 60090 z$(8)[178]"1-800-831-2694 or 1-318-221-8718.":[151]214,12:[153]
  88. 60100 [129]i[178]0[164]8:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  89.